home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / prog / basic1a.arj / DEMO.PRG < prev    next >
Text File  |  1993-10-02  |  720b  |  30 lines
  1. #Include "Inkey.ch"
  2. #Include "Box.ch"
  3. LOCAL Aset := {}, Ajohn :={}, i
  4. FIELD probdescip
  5.   Settings("begin", Aset)
  6.   SET CURSOR OFF
  7.   SETCOLOR("w/n")
  8.   CLS
  9.   Jheader("This is a demo", "w+/r")
  10.   Footer("Page Up/Down To Move", "W/b")
  11.     USE bugs NEW
  12.     Ajohn := Array(lastrec())
  13.        PleaseWait()
  14.         FOR i = 1 TO LASTREC()
  15.           Ajohn[i] = probdescip
  16.           PercentBox(46)
  17.           SKIP
  18.         NEXT
  19.      MessageBox("begin", "Basic.Lib  MessageBox() Function", "w+/rb", "w+/rb")
  20.      INKEY(0)
  21.      MessageBox("end")
  22.     SETCOLOR("w/b")
  23.     CLS
  24.     @ 10, 2, 12, 71 BOX B_SINGLE + SPACE(1) color "w+/r"
  25.     Shadow(10, 2, 12, 71)
  26.     INKEY(0)
  27.     CLS
  28.  Settings("end", Aset)
  29.    CLS
  30.